home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p2.lha / ImEngV3.41p2 / Extra / ADPro / IE_Export_Render.adpro < prev    next >
Text File  |  1997-01-09  |  2KB  |  89 lines
  1. /*
  2. ** $VER: IE_Export_Render 1.01 (9/1 1997 Stockholm/Sweden)
  3. **
  4. ** Copyright © 1997 by Patrik M Nydensten
  5. **
  6. ** This arexx script will export the rendered data in ADPro
  7. ** to ImageEngineer. If no rendered data exists the 24bit
  8. ** data will be rendered. Both programs must be running at
  9. ** the same time.
  10. ** This script requires ADPro v2.5.0 (or higher)
  11. ** and ImageEngineer 3.0 (or higher).
  12. **
  13. */
  14.  
  15. OPTIONS RESULTS
  16. SAVE_DEFAULTS 't:TempDefaults.adpro'
  17. TEMP_FILE = 't:Image_from_ADPro'
  18.  
  19. NL = '0A'X
  20. SQ = '27'X
  21. DQ = '22'X
  22. TRUE  = 1
  23. FALSE = 0
  24.  
  25. /* Main code */
  26.  
  27. IF ~SHOW(PORTS,'IMAGEENGINEER') THEN DO
  28.      OKAY1 'Could not locate IEs arexx port!'
  29.     CALL ErrorOut 10
  30. END
  31.  
  32. ADDRESS "ADPro"
  33.  
  34. CALL "FREDSCRIPTS:FREDFunctions/CheckForRawImageData" TRUE
  35. IF (RESULT ~= 0) THEN    CALL ErrorOut 10
  36.  
  37. CALL "FREDSCRIPTS:FREDFunctions/CheckForRenderedImageData" TRUE
  38. IF (RESULT ~= 0) THEN DO
  39.   EXECUTE
  40.   RX_REND = 'YES'
  41. END
  42. ELSE RX_REND = 'NO'
  43.  
  44. SAVER "IFF" TEMP_FILE "IMAGE"
  45. IF (RC ~= 0) THEN DO
  46.     ADPRO_TO_FRONT
  47.     OKAY1 'Error when saving rendered image from ADPro!'
  48.     CALL ErrorOut 10
  49. END
  50.  
  51. IF RX_REND = 'YES' THEN CLOSE_RENDER_SCREEN
  52.  
  53. ADDRESS 'IMAGEENGINEER'
  54.  
  55. 'IE_TO_FRONT'
  56.  
  57. 'OPEN' TEMP_FILE 'COLOUR'
  58. IF (RC ~= 0) THEN DO
  59.   ADDRESS "ADPro"
  60.      ADPRO_TO_FRONT
  61.      OKAY1 'Error when loading image into IE!'
  62.     CALL ErrorOut 10
  63. END
  64. NEW_IMAGE = RESULT
  65.  
  66. CALL ErrorOut 0
  67.  
  68. /* Errorout procedure */
  69.  
  70. ErrorOut:
  71.     PARSE ARG ExitCode
  72.  
  73.     IF (EXISTS( SAVE_DEFAULTS )) THEN DO
  74.     ADDRESS "ADPro"
  75.         LOAD_DEFAULTS SAVE_DEFAULTS
  76.         IF (RC ~= 0) THEN DO
  77.             ADPRO_TO_FRONT
  78.             OKAY1 "Error restoring settings."
  79.         END
  80.  
  81.         ADDRESS COMMAND "Delete >NIL:" SAVE_DEFAULTS
  82.     END
  83.  
  84.     IF (EXISTS( TEMP_FILE )) THEN DO
  85.       ADDRESS COMMAND "Delete >NIL:" TEMP_FILE
  86.   END
  87.   
  88.     EXIT ExitCode
  89.